home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / xhist / xhist.G < prev    next >
Encoding:
Text File  |  1991-09-17  |  9.0 KB  |  334 lines
  1. ;GIL-2
  2. (
  3. (
  4.     :type                   :base-window
  5.     :name                   win
  6.     :owner                  nil
  7.     :width                  500
  8.     :height                 535
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Display Histogram of Image"
  12.     :label-type             :string
  13.     :mapped                 t
  14.     :show-footer            nil
  15.     :resizable              t
  16.     :icon-file              ""
  17.     :icon-mask-file         ""
  18.     :event-handler          nil
  19.     :events                 ()
  20.     :user-data              ()
  21. )
  22. (
  23.     :type                   :control-area
  24.     :name                   controls1
  25.     :owner                  win
  26.     :help                   ""
  27.     :x                      0
  28.     :y                      0
  29.     :width                  500
  30.     :height                 120
  31.     :background-color       ""
  32.     :foreground-color       ""
  33.     :show-border            t
  34.     :menu                   nil
  35.     :event-handler          nil
  36.     :events                 ()
  37.     :user-data              ()
  38. )
  39. (
  40.     :type                   :text-field
  41.     :name                   file_item
  42.     :owner                  controls1
  43.     :help                   ""
  44.     :x                      8
  45.     :y                      7
  46.     :width                  267
  47.     :height                 15
  48.     :foreground-color       ""
  49.     :text-type              :alphanumeric
  50.     :label                  "Image File : "
  51.     :label-type             :string
  52.     :value-x                99
  53.     :value-y                7
  54.     :layout-type            :horizontal
  55.     :value-length           22
  56.     :stored-length          80
  57.     :read-only              nil
  58.     :notify-handler         nil
  59.     :event-handler          nil
  60.     :events                 ()
  61.     :user-data              ()
  62. )
  63. (
  64.     :type                   :button
  65.     :name                   button4
  66.     :owner                  controls1
  67.     :help                   ""
  68.     :x                      298
  69.     :y                      7
  70.     :constant-width         nil
  71.     :button-type            :normal
  72.     :width                  46
  73.     :height                 20
  74.     :foreground-color       ""
  75.     :label                  "Load"
  76.     :label-type             :string
  77.     :menu                   nil
  78.     :notify-handler         load_proc
  79.     :event-handler          nil
  80.     :events                 ()
  81.     :user-data              ()
  82. )
  83. (
  84.     :type                   :button
  85.     :name                   quit_item
  86.     :owner                  controls1
  87.     :help                   ""
  88.     :x                      367
  89.     :y                      7
  90.     :constant-width         nil
  91.     :button-type            :normal
  92.     :width                  49
  93.     :height                 20
  94.     :foreground-color       ""
  95.     :label                  "QUIT"
  96.     :label-type             :string
  97.     :menu                   nil
  98.     :notify-handler         quit_proc
  99.     :event-handler          nil
  100.     :events                 ()
  101.     :user-data              ()
  102. )
  103. (
  104.     :type                   :button
  105.     :name                   button6
  106.     :owner                  controls1
  107.     :help                   ""
  108.     :x                      437
  109.     :y                      7
  110.     :constant-width         nil
  111.     :button-type            :normal
  112.     :width                  46
  113.     :height                 20
  114.     :foreground-color       ""
  115.     :label                  "Help"
  116.     :label-type             :string
  117.     :menu                   nil
  118.     :notify-handler         help_proc
  119.     :event-handler          nil
  120.     :events                 ()
  121.     :user-data              ()
  122. )
  123. (
  124.     :type                   :button
  125.     :name                   button5
  126.     :owner                  controls1
  127.     :help                   ""
  128.     :x                      270
  129.     :y                      35
  130.     :constant-width         nil
  131.     :button-type            :normal
  132.     :width                  126
  133.     :height                 20
  134.     :foreground-color       ""
  135.     :label                  "Check pixel value"
  136.     :label-type             :string
  137.     :menu                   nil
  138.     :notify-handler         check_proc
  139.     :event-handler          nil
  140.     :events                 ()
  141.     :user-data              ()
  142. )
  143. (
  144.     :type                   :text-field
  145.     :name                   pixel_value
  146.     :owner                  controls1
  147.     :help                   ""
  148.     :x                      9
  149.     :y                      37
  150.     :width                  240
  151.     :height                 15
  152.     :foreground-color       ""
  153.     :text-type              :alphanumeric
  154.     :label                  "pixel value : "
  155.     :label-type             :string
  156.     :value-x                105
  157.     :value-y                37
  158.     :layout-type            :horizontal
  159.     :value-length           18
  160.     :stored-length          80
  161.     :read-only              nil
  162.     :notify-handler         nil
  163.     :event-handler          nil
  164.     :events                 ()
  165.     :user-data              ()
  166. )
  167. (
  168.     :type                   :button
  169.     :name                   button1
  170.     :owner                  controls1
  171.     :help                   ""
  172.     :x                      120
  173.     :y                      64
  174.     :constant-width         nil
  175.     :button-type            :normal
  176.     :width                  42
  177.     :height                 20
  178.     :foreground-color       ""
  179.     :label                  "<--"
  180.     :label-type             :string
  181.     :menu                   nil
  182.     :notify-handler         move_left_proc
  183.     :event-handler          nil
  184.     :events                 ()
  185.     :user-data              ()
  186. )
  187. (
  188.     :type                   :button
  189.     :name                   button2
  190.     :owner                  controls1
  191.     :help                   ""
  192.     :x                      192
  193.     :y                      64
  194.     :constant-width         nil
  195.     :button-type            :normal
  196.     :width                  42
  197.     :height                 20
  198.     :foreground-color       ""
  199.     :label                  "-->"
  200.     :label-type             :string
  201.     :menu                   nil
  202.     :notify-handler         move_right_proc
  203.     :event-handler          nil
  204.     :events                 ()
  205.     :user-data              ()
  206. )
  207. (
  208.     :type                   :button
  209.     :name                   button3
  210.     :owner                  controls1
  211.     :help                   ""
  212.     :x                      271
  213.     :y                      64
  214.     :constant-width         nil
  215.     :button-type            :normal
  216.     :width                  65
  217.     :height                 20
  218.     :foreground-color       ""
  219.     :label                  "Select  |"
  220.     :label-type             :string
  221.     :menu                   nil
  222.     :notify-handler         select_proc
  223.     :event-handler          nil
  224.     :events                 ()
  225.     :user-data              ()
  226. )
  227. (
  228.     :type                   :button
  229.     :name                   eval_item
  230.     :owner                  controls1
  231.     :help                   ""
  232.     :x                      364
  233.     :y                      64
  234.     :constant-width         nil
  235.     :button-type            :normal
  236.     :width                  43
  237.     :height                 20
  238.     :foreground-color       ""
  239.     :label                  "Eval"
  240.     :label-type             :string
  241.     :menu                   nil
  242.     :notify-handler         eval_proc
  243.     :event-handler          nil
  244.     :events                 ()
  245.     :user-data              ()
  246. )
  247. (
  248.     :type                   :button
  249.     :name                   restore_item
  250.     :owner                  controls1
  251.     :help                   ""
  252.     :x                      429
  253.     :y                      64
  254.     :constant-width         nil
  255.     :button-type            :normal
  256.     :width                  63
  257.     :height                 20
  258.     :foreground-color       ""
  259.     :label                  "Restore"
  260.     :label-type             :string
  261.     :menu                   nil
  262.     :notify-handler         restore_proc
  263.     :event-handler          nil
  264.     :events                 ()
  265.     :user-data              ()
  266. )
  267. (
  268.     :type                   :button
  269.     :name                   button7
  270.     :owner                  controls1
  271.     :help                   ""
  272.     :x                      270
  273.     :y                      95
  274.     :constant-width         nil
  275.     :button-type            :normal
  276.     :width                  122
  277.     :height                 20
  278.     :foreground-color       ""
  279.     :label                  "Set count margin"
  280.     :label-type             :string
  281.     :menu                   nil
  282.     :notify-handler         set_count_proc
  283.     :event-handler          nil
  284.     :events                 ()
  285.     :user-data              ()
  286. )
  287. (
  288.     :type                   :text-field
  289.     :name                   count
  290.     :owner                  controls1
  291.     :help                   ""
  292.     :x                      14
  293.     :y                      97
  294.     :width                  231
  295.     :height                 15
  296.     :foreground-color       ""
  297.     :text-type              :alphanumeric
  298.     :label                  "count margin : "
  299.     :label-type             :string
  300.     :value-x                125
  301.     :value-y                97
  302.     :layout-type            :horizontal
  303.     :value-length           15
  304.     :stored-length          80
  305.     :read-only              nil
  306.     :notify-handler         nil
  307.     :event-handler          nil
  308.     :events                 ()
  309.     :user-data              ()
  310. )
  311. (
  312.     :type                   :canvas-pane
  313.     :name                   canvas
  314.     :owner                  win
  315.     :help                   ""
  316.     :x                      0
  317.     :y                      120
  318.     :width                  500
  319.     :height                 415
  320.     :background-color       ""
  321.     :foreground-color       ""
  322.     :menu                   nil
  323.     :horizontal-scrollbar   nil
  324.     :scrollable-width       500
  325.     :vertical-scrollbar     nil
  326.     :scrollable-height      415
  327.     :repaint-proc           histogram_repaint_proc
  328.     :event-handler          canvas_event_proc
  329.     :events                 (:mouse :mouse-drag )
  330.     :drawing-model          :xwindows
  331.     :user-data              ()
  332. )
  333. )
  334.